home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / c_windw / accept1.c next >
Text File  |  1987-12-28  |  512b  |  18 lines
  1. /*  (c) Marietta Systems, Inc.  1987
  2. *   All rights reserved
  3. *
  4. *   Program to demonstrate use of accept function 
  5. */
  6. #include "mtest.h"
  7. void main() {
  8. int x = 2;
  9. byte text[16];
  10. clr_scrn("Accept test - 1");
  11. display("Enter column of numbers, press function key to end",
  12.      1, 1, high);
  13. set_crsr(x, 5);
  14. while (INCHAR != QUIT) {accept(text, decimal, alt_reverse, 9, 2); 
  15.      set_crsr(++x, 5);}
  16. goodbye(0);
  17. }
  18.